home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / th.dir / 00001_Movie Script.ls next >
Encoding:
Text File  |  1996-04-18  |  1.6 KB  |  62 lines
  1. on startMovie
  2.   global gSIVideoPath, gSIHDPath, gSIPathSep, cTHVRChannel, gTHHotspot, gTHNormalSize, cTHBigCheckSprite, cTHBiggerCheckSprite, cTHBigSprite, cTHBiggerSprite, gTHRefresh, gTHReopen, gTHVRPath, gHSCount, gTHCloseMovie, gSILastHwnd, gSISystem, gTHBrower, gSIGetPPStr
  3.   set the exitLock to 1
  4.   EndBufferingEvents()
  5.   initVR()
  6.   set gTHRefresh to 0
  7.   set gTHReopen to 0
  8.   set gTHCloseMovie to 0
  9.   set cTHVRChannel to 44
  10.   if fileExists(gSIHDPath & "VIDEO" & gSIPathSep & "TH.MOV") then
  11.     set gTHVRPath to gSIHDPath & "VIDEO" & gSIPathSep
  12.   else
  13.     set gTHVRPath to gSIVideoPath
  14.   end if
  15.   set cTHBigSprite to 15
  16.   set cTHBiggerSprite to 16
  17.   set cTHBigCheckSprite to 17
  18.   set cTHBiggerCheckSprite to 18
  19.   set vV to HSStateGet("th", "vrV")
  20.   set vH to HSStateGet("th", "vrH")
  21.   set vZ to HSStateGet("th", "vrZ")
  22.   set gTHNormalSize to not value(HSStateGet("th", "notNormalSize"))
  23.   VRNormalSize(gTHNormalSize)
  24.   initLocation()
  25.   if gHSCount = 0 then
  26.     set the visible of sprite 47 to 0
  27.   else
  28.     set the visible of sprite 47 to 1
  29.   end if
  30.   if gSISystem = "WIN" then
  31.     set gSILastHwnd to -1
  32.   end if
  33. end
  34.  
  35. on stopMovie
  36. end
  37.  
  38. on keyDown
  39.   if the keyCode = 122 then
  40.     LaunchHelp()
  41.   end if
  42. end
  43.  
  44. on cleanUp
  45.   global gPanoMovieObj, gTHNormalSize, gSISystem
  46.   puppetSound(0)
  47.   if gSISystem = "WIN" then
  48.     WIN_QT_Close()
  49.   else
  50.     DVClose()
  51.   end if
  52.   set vH to PanoGetHPanAngle()
  53.   set vV to PanoGetVPanAngle()
  54.   set vZ to PanoGetZoomAngle()
  55.   HSStatePut("th", "vrV", vV)
  56.   HSStatePut("th", "vrH", vH)
  57.   HSStatePut("th", "vrZ", vZ)
  58.   HSStatePut("th", "notNormalSize", not gTHNormalSize)
  59.   cleanUpVR()
  60.   DisableIdleAnim()
  61. end
  62.